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ZSBTTL "Module Level Declarations’ 


TABLE OF CONTENTS: 
i EQUATED SYMBOLS: 


' 
i 
INCLUDE FILES: 


RARY ‘NXPORT:XPORT'; 
UIRE 'REQ:RNODEF '; 


DSRPLUS XTHEN 
a *REQ:DPLLIB'; 
RARY ‘REQ:DSRLIB'; 


—Or-on" ow 


EXTERNAL LITERAL 
rintes : UNSIGNED (8); 


LITERAL 


tab_character = %0'11'; 


EXTERNAL REFERENCES: 
EXTERNAL 


atable : atable_definition; 


! Action table. 


10-198 00:42:19 


! XPORT Library 
! RUNOFF variant definitions 


! DSRPLUS BLISS Library 
! DSR BLISS Library 
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Used to identify what type of 
i action is to be taken on encountering any 
! given character. 
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GLOBAL ROUTINE nate (kharacter) : NOVALUE 


— 


le+ 
FUNCTIONAL DESCRIPTION: 


NATE ensures that an ATABLE entry for a particular character 
corresponds to what that character usually represents. 


' 
' 
} 
FORMAL PARAMETERS: 

kharacter = indicates which action table entry should be reset. 
{ IMPLICIT INPUTS: None 

{ IMPLICIT OUTPUTS: None 

' 
1 
| 
i] 
i] 
i] 


i ROUTINE VALUE: 
i COMPLETION CODES: None 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
: 
: ' SIDE EFFECTS: None 
1 = 
1 
BEGIN 
! The order of statements in the SELECTONE statement is important. 
! This is because some classifications (such as a_punct) must be 
! made before others (such as a_other) because they share characters 
: in common. 
atable C.kharacter] = CSELECTONE ekharacter OF 
rintes] : a_int_esc; 
tab checact ej : a_tab; 
T : a_control; 


'*, 4C°?°] : a_punct; 
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! Additional characters for the multi-national character set: 
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%( Remove block comment if any of these cause problems. 


To start off with, we must map the currently ‘‘reserved"’ character 
codes as control characters because they tend to adversly affect 
most output gevices. They can be just removed from the code as 


they are defined as printable characters since their values are 
already included in the ranges below. 


CXDECIMAL'166') : a_control; 
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; Routine Size: 338 bytes, Routine Base: S$CODE$ + 0000 


: 179 S304 i END ‘End of modul 
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PSECT SUMMARY 
Name Bytes Attributes 
SCODES 338 NOVEC,NOWRT, RD, EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 


Library Statistics 


‘Sie eeepc ieee See a Symbols -------- Pages Processing 
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